Night Owl 6/Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso/026a/upsmft.zip/UPS3.BAK

Text File | 1986-05-08 | 512b | 27 lines

USE SENTFILE
SET DEVICE TO PRINT
DO WHILE .NOT. EOF()
IF CODAMT>0
@3,16 SAY "PA 259-973"
@5,9 SAY "IT'S RELIEF INC."
@6,9 SAY "P.O. BOX 1086"
@7,9 SAY "STATE COLLEGE, PA 16804"
@9,34 SAY CODAMT PICTURE "9999.99"
@9,49 SAY CODAMT PICTURE "9999.99"
@12,15 SAY INVNO
@12,49 SAY INVNO
@14,35 SAY DATESHIPPE
@14,49 SAY DATESHIPPE
@16,15 SAY FIRST
@16,31 SAY LAST
@17,15 SAY SHADDRESS
@18,15 SAY SHCITY
@18,31 SAY SHSTATE
@18,34 SAY SHZIP
@19,1 SAY " "
SKIP
ELSE
SKIP
ENDIF
ENDDO